D_is_chong_content.asp 落叶冰点万能企业网站内容管理系统 V9.1 - ASP源码程序

www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_is_chong_content.asp
    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>


<%

dir_set="../"
Server.ScriptTimeout = 99999

%>


<!--#include file=../inc/conn.asp-->
<!--#include file=../inc/Functionb.asp-->

<!--#include file=../inc/ajaxLIB.asp-->

<!--#include file=inc/checkadmin1.asp-->

<!--#include file=../inc/functionFiless.asp-->




<!--#include file=../inc/ND_class_function.asp-->


<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<LINK href="css2.css" type=text/css rel=stylesheet>


<body>


<%


if trim(request("dddd"))="" then
%>
<script language="javascript">
alert("请先输入标题或名称");

window.close();
</script>

<%


response.end
end if

if request("ttty")="art" then

biao2="[ND_Article]"
end if



if request("ttty")="down" then

biao2="[ND_down]"
end if

if request("ttty")="picsp" then

biao2="[ND_pic_or_sp]"
end if


if request("ttty")="cp" then

biao2="[ND_prod]"
end if



sys_content_type=trim(request("sys_content_type"))



set rs22=server.CreateObject("adodb.recordset")
rs22.open "select * from "&biao2&" where title like '%"&trim(request("dddd"))&"%'",conn,1,1



if not rs22.eof then



set rs221=server.CreateObject("adodb.recordset")
rs221.open "select * from "&biao2&" where title='"&trim(request("dddd"))&"'",conn,1,1

if not rs221.eof then

%>
<script language="javascript">
alert("有同标题的内容存在");

window.close();
</script>

<%


else


%>
<script language="javascript">
alert("不存在完全同标题的内容,但是有 类似标题 的内容存在(比如 存在一个比此标题更长的含此标题的类似标题)");

//window.close();
</script>






<br>
<font color="#ff0000" style="font-size:14px">
类似的标题或名称有:<br><br>
</font>

<%




set rs2211=server.CreateObject("adodb.recordset")
rs2211.open "select * from "&biao2&" where title like '%"&trim(request("dddd"))&"%'",conn,1,1


aaas=0
do while not rs2211.eof
aaas=aaas+1

%>
类似的标题或名称<%=aaas%>:<%=rs2211("title")%><br>


<%
if aaas>999 then 
%>

<br><br>还有很多。。。，略<br>
<%
exit do
end if

rs2211.movenext
loop




end if








else
%>
<script language="javascript">
alert("没有同标题的内容存在");

window.close();
</script>


<%



end if


rs22.close
set rs22=nothing

%>

</body>
</html>